00100	\|\\;				Define Brick Character
00200	\M0FIX25;\;	fixed font
00300	\⊂'000040;\;	VERREM - REM's syntax for macros with args definitions
00400	\⊂'000400;\;	VERRHT - modified way to pass args with nest chars
00500	\8EVAL(STRING)[⊗STRING⊗]\;
00600	\8LOADAC(VAR)[\!EVAL((\←=)\!⊗VAR⊗;(;));]\;	load ac with var
00700	\8REDEF(VAR)[\N			redefine variable
00800	\	;\!EVAL((\∞)⊗VAR⊗([)\D∀(]));\N	define var
00900	\N\	;\!EVAL((\∞)⊗VAR⊗([]));\N		define var
01000	\	;\!EVAL((\∂←)⊗VAR⊗(;));\N		expunge var def
01100	]\;				restore ac
01200	\∞ITERREDEF[\N		macro to iterate REDEF
01300	\	;\-=1;\N		decrement count
01400	\	;\P\N
01500	\	;\!REDEF(VAR);\N
01600	\N\	;\∞VAR[0]\N		define var
01700	\N\	;\∂←VAR;\N		expunge old var def
01800	\	;\p]\;
01900	\←=1000;\;		iteration count
02000	\IITERREDEF;\;